home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 92
/
Tiger_Disk_092_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende ii_92
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
762b
|
18 lines
2000 print"[147]";:poke53280,.:poke53281,.:
2005 poke646,peek(53281):
2010 print" [209][209][209][209][209][209][209] [209][209] [209] [209][209][209][209][209][209] [209][209][209][209][209][209][209] [209][209][209] "
2020 print" [209][209] [209][209][209] [209] [209][209] [209] [209][209] [209][209][209] "
2030 print" [209][209][209][209][209] [209][209] [209] [209] [209][209] [209] [209][209][209][209] [209][209][209] "
2040 print" [209][209] [209][209] [209] [209] [209][209] [209] [209][209] "
2050 print" [209][209][209][209][209][209][209] [209][209] [209][209] [209][209][209][209][209][209] [209][209][209][209][209][209][209] [209][209][209] "
2150 s=54272:pokes+24,15:pokes,168:pokes+1,68:pokes+5,15:pokes+6,139
2151 pokes+7,120:pokes+8,100:pokes+12,15:pokes+13,215:forx=0to315step6
2245 pokes+4,33:pokes+4,32:pokes+11,21:pokes+11,20:pokes+1,12*(rnd(x/20)+1)
2250 if(x-20)/8<>int((x-20)/8)thenpoke646,4
2260 fory=0to4:poke55296+40+(x-20)/8+40*y,y+(rnd(y)+2):next:next
2340 forx=0to116step6:
2345 pokes+4,33:pokes+11,24:pokes+4,16:pokes+11,16
2350 if(x1-20)/8<>int((x1-20)/8)thenpoke646,4:poke+11,81:pokes+4,81
2360 fory=0to4:poke55296+41+(x1-20)/8+41*y,y+(rnd(y)+2):next:next:poke56325,.
2390 print"lukian":poke56325,55:fort=1to300:next:sys2048